home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / enhlb200 / testfrm.dfm / testfrm.txt
Text File  |  1996-09-15  |  2KB  |  113 lines
  1. object Form1: TForm1
  2.   Left = 57
  3.   Top = 39
  4.   Width = 550
  5.   Height = 343
  6.   Caption = 'Demo for TMCEnhancedListBox'
  7.   Font.Color = clBlack
  8.   Font.Height = -13
  9.   Font.Name = 'Times New Roman'
  10.   Font.Style = []
  11.   Position = poScreenCenter
  12.   OnCreate = FormCreate
  13.   OnDestroy = FormDestroy
  14.   PixelsPerInch = 96
  15.   TextHeight = 15
  16.   object Label3: TLabel
  17.     Left = 16
  18.     Top = 144
  19.     Width = 62
  20.     Height = 15
  21.     Caption = 'Department'
  22.   end
  23.   object Label4: TLabel
  24.     Left = 88
  25.     Top = 144
  26.     Width = 129
  27.     Height = 15
  28.     Caption = 'Region'
  29.   end
  30.   object Label5: TLabel
  31.     Left = 224
  32.     Top = 144
  33.     Width = 59
  34.     Height = 15
  35.     Alignment = taRightJustify
  36.     Caption = 'Sold'
  37.   end
  38.   object Label6: TLabel
  39.     Left = 312
  40.     Top = 160
  41.     Width = 197
  42.     Height = 45
  43.     Caption = 
  44.       'This demo program contains one ownerdrawn listbox (above) and on' +
  45.       'e regular, prefilled listbox.'
  46.     WordWrap = True
  47.   end
  48.   object Panel1: TPanel
  49.     Left = 8
  50.     Top = 8
  51.     Width = 529
  52.     Height = 129
  53.     Caption = 'Panel1'
  54.     TabOrder = 0
  55.     object Label1: TLabel
  56.       Left = 94
  57.       Top = 7
  58.       Width = 31
  59.       Height = 15
  60.       Caption = 'Name'
  61.       Font.Color = clBlack
  62.       Font.Height = -13
  63.       Font.Name = 'Times New Roman'
  64.       Font.Style = [fsBold]
  65.       ParentFont = False
  66.     end
  67.     object Label2: TLabel
  68.       Left = 320
  69.       Top = 7
  70.       Width = 24
  71.       Height = 15
  72.       Caption = 'Size'
  73.       Font.Color = clBlack
  74.       Font.Height = -13
  75.       Font.Name = 'Times New Roman'
  76.       Font.Style = [fsBold]
  77.       ParentFont = False
  78.     end
  79.     object MCEnhancedListBox1: TMCEnhancedListBox
  80.       Left = 8
  81.       Top = 24
  82.       Width = 513
  83.       Height = 97
  84.       ItemHeight = 16
  85.       Style = lbOwnerDrawFixed
  86.       TabOrder = 0
  87.       OnDrawItem = MCEnhancedListBox1DrawItem
  88.       Label1 = Label1
  89.       Label2 = Label2
  90.       Separator = #9
  91.       Clip = False
  92.     end
  93.   end
  94.   object MCEnhancedListBox2: TMCEnhancedListBox
  95.     Left = 16
  96.     Top = 160
  97.     Width = 289
  98.     Height = 145
  99.     ItemHeight = 16
  100.     Items.Strings = (
  101.       'Fruit,South,93923'
  102.       'Snacks,Silicon Valley,1592934'
  103.       'Aspirin,Redmond,91592934'
  104.       'Dope,Washington,91592934')
  105.     TabOrder = 1
  106.     Label1 = Label3
  107.     Label2 = Label4
  108.     Label3 = Label5
  109.     Separator = ','
  110.     Clip = True
  111.   end
  112. end
  113.